home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / bar_400.zip / INSTALL.DO < prev   
Text File  |  1991-01-20  |  30KB  |  1,432 lines

  1. ;
  2. ; ╔═════════════════════════════╗
  3. ; ║  Mycroft Door Installation  ║
  4. ; ║    By: Michael W. Bayley    ║
  5. ; ║         Mar 30, 1989        ║
  6. ; ╚═════════════════════════════╝
  7. ;
  8. ; ╔═════════════════════════════╗
  9. ; ║   Updated for Barons 4.00   ║
  10. ; ║    By: Richard A. Wilkes    ║
  11. ; ║      January 20, 1991       ║
  12. ; ╚═════════════════════════════╝
  13. ;
  14. ;
  15. ; ╔══════════════════╗
  16. ; ║  Variable Usage  ║
  17. ; ╚══════════════════╝
  18. ;┌───────────────────────────────────────────────────────────────────────────┐
  19. ;│      String Variables                    Numeric Variables                │
  20. ;├───────────────────────────────────────────────────────────────────────────┤
  21. ;│  %0  General String Input            #0  General Numeric Input            │
  22. ;│  %1  DeArc program Name              #1  Work variable                    │
  23. ;│  %2  Work variable                   #2  Work variable                    │
  24. ;│  %3  Work variable                   #3  Work variable                    │
  25. ;│  %4  Work variable                   #4  Work variable                    │
  26. ;│  %5  Bulletin #1 Drive & Path        #5  Max Door Session Time            │
  27. ;│  %6  Bulletin #2 Drive & Path        #6                                   │
  28. ;│  %7  Bulletin #3 Drive & Path        #7                                   │
  29. ;│  %8  Paging Time Start               #8                                   │
  30. ;│  %9  Paging Time End                 #9                                   │
  31. ;│ %10  BBS Name                       #10  Number of BBS Nodes              │
  32. ;│ %11  SysOp Name                     #11                                   │
  33. ;│ %12  BBS Type                       #12  BBS Type ID                      │
  34. ;│ %13  BBS Tag                        #13                                   │
  35. ;│ %14  Monitor Drive & Path           #14                                   │
  36. ;│ %15  Batch Filename                 #15  Install/Update Flag              │
  37. ;│ %16  Door Drive                     #16                                   │
  38. ;│ %17  Door Path                      #17                                   │
  39. ;│ %18  Docs Drive & Path              #18                                   │
  40. ;│ %19                                 #19                                   │
  41. ;│ %20  Node 1 BBS Drive               #20  Node 1 BBS Comm Port #           │
  42. ;│ %21  Node 2 BBS Drive               #21  Node 2 BBS Comm Port #           │
  43. ;│ %22  Node 3 BBS Drive               #22  Node 3 BBS Comm Port #           │
  44. ;│ %23  Node 4 BBS Drive               #23  Node 4 BBS Comm Port #           │
  45. ;│ %24                                 #24                                   │
  46. ;│ %25  Node 1 BBS Path                #25                                   │
  47. ;│ %26  Node 2 BBS Path                #26                                   │
  48. ;│ %27  Node 3 BBS Path                #27                                   │
  49. ;│ %28  Node 4 BBS Path                #28                                   │
  50. ;│ %29                                 #29                                   │
  51. ;│ %30  Editor Login                   #30                                   │
  52. ;│ %31  Editor Password                #31                                   │
  53. ;└───────────────────────────────────────────────────────────────────────────┘
  54.  
  55.  
  56. ;
  57. ; ╔════════════════════════╗
  58. ; ║  Initialize Variables  ║
  59. ; ╚════════════════════════╝
  60. ;
  61. $SET %14 "<not in use>"
  62. $SET %20 ""
  63. $SET %21 ""
  64. $SET %22 ""
  65. $SET %23 ""
  66. $SET %25 "<not in use>"
  67. $SET %26 "<not in use>"
  68. $SET %27 "<not in use>"
  69. $SET %28 "<not in use>"
  70.  
  71. $SET #20 0
  72. $SET #21 0
  73. $SET #22 0
  74. $SET #23 0
  75.  
  76.  
  77.  
  78.  
  79.  
  80. ;
  81. ; ╔══════════════════╗
  82. ; ║  Signon Screens  ║
  83. ; ╚══════════════════╝
  84. ;
  85. CLS
  86. $MSG
  87. $MSG
  88. $MSG "  The Land of the Barons                             "
  89. $MSG "  Version 4.00 - January 20, 1991                    "
  90. $MSG "  Copyright (c) 1989-1991 by R.A.W. Software         "
  91. $MSG "  Written by Richard A. Wilkes                       "
  92. $MSG
  93. $MSG "  Distributed by Mycroft Systems      (408) 927-0105 "
  94. $MSG
  95. $MSG
  96. $MSG "  This program is used to install/update The Land of the Barons door    "
  97. $MSG "  on your system.  It is intended to simplify bringing up the door by   "
  98. $MSG "  relieving you of the task of reading all the Sysop's documentation    "
  99. $MSG "  and having to build the .BAT files and configuration files.  It is    "
  100. $MSG "  still recommended however that you do read the Sysop's documentation. "
  101. $MSG
  102. $MSG "  The following files must be in this directory:                        "
  103. $MSG
  104. $MSG "      ■ INSTALL.BAT                                                     "
  105. $MSG "      ■ INSTALL.DO                                                      "
  106. $MSG "      ■ BARONS-D.ZIP                                                    "
  107. $MSG "      ■ BARONS-X.ZIP                                                    "
  108. $MSG "      ■ BARONS-S.ZIP                                                    "
  109. $MSG
  110. $INP %0 "  Press [ENTER] to continue..."
  111.  
  112. CLS
  113. $MSG
  114. $MSG
  115. $MSG "  This program will perform the following functions:                   "
  116. $MSG
  117. $MSG "      ■ UnZip all Sysop and User documentaton                          "
  118. $MSG "      ■ UnZip all door program files                                   "
  119. $MSG "      ■ Provide the user access to the documentation                   "
  120. $MSG "      ■ Build the node id file (NODES.BBS)                             "
  121. $MSG "      ■ Build door .BAT file                                           "
  122. $MSG "      ■ Build any configuration files                                  "
  123. $MSG "      ■ Run any required program initialization                        "
  124. $MSG
  125. $MSG "  After the installation is complete, the door should be able to be    "
  126. $MSG "  run after you have made any required changes to add the door to      "
  127. $MSG "  your BBS door list.                                                  "
  128. $MSG
  129. $MSG "  If you are running a BBS that is not supported by this door, you     "
  130. $MSG "  will need to use a BBS conversion program and make changes to the    "
  131. $MSG "  .BAT files as required.                                              "
  132. $MSG
  133. $MSG "  Follow the instructions and answer each question carefully.  Typos   "
  134. $MSG "  are the main cause of the door not being setup correctly.            "
  135. $MSG
  136.  
  137. $:VALID
  138. $INP %0 "  Enter [I] to install, [U] to update, or [Q] to quit: "
  139. $IF %0 = "I" INSTALL
  140. $IF %0 = "i" INSTALL
  141. $IF %0 = "U" UPDATE
  142. $IF %0 = "u" UPDATE
  143. $IF %0 = "Q" ABORT
  144. $IF %0 = "q" ABORT
  145. $GOTO VALID
  146.  
  147. $:ABORT
  148. $MSG
  149. $MSG "  Process aborted..."
  150. $MSG
  151. $GOTO DONE
  152.  
  153.  
  154.  
  155.  
  156.  
  157. ;
  158. ; ╔═════════════════╗
  159. ; ║  Get All Input  ║
  160. ; ╚═════════════════╝
  161. ;
  162. $:INSTALL
  163. $SET #15 1
  164. $GOTO START
  165. ;
  166. $:UPDATE
  167. $SET #15 0
  168. ;
  169. $:START
  170. $GOSUB LOGIN
  171. $GOSUB PASSWORD
  172. $GOSUB BBS_TYPE
  173.  
  174. $IF #12 < 3 NO_MON
  175. $IF #12 > 4 NO_MON
  176. $GOSUB MON_PATH
  177.  
  178. $:NO_MON
  179. $GOSUB NODES
  180.  
  181. $SET #30 1
  182. $SET #1 #30
  183. $GOSUB BBS_PATH
  184. $SET %20 %2
  185. $SET %25 %3
  186. $SET #1 #30
  187. $GOSUB BBS_COMM
  188. $SET #20 #1
  189. $ADD #30 1
  190.  
  191. $IF #30 > #10 LPEND
  192. $SET #1 #30
  193. $GOSUB BBS_PATH
  194. $SET %21 %2
  195. $SET %26 %3
  196. $SET #1 #30
  197. $GOSUB BBS_COMM
  198. $SET #21 #1
  199. $ADD #30 1
  200.  
  201. $IF #30 > #10 LPEND
  202. $SET #1 #30
  203. $GOSUB BBS_PATH
  204. $SET %22 %2
  205. $SET %27 %3
  206. $SET #1 #30
  207. $GOSUB BBS_COMM
  208. $SET #22 #1
  209. $ADD #30 1
  210.  
  211. $IF #30 > #10 LPEND
  212. $SET #1 #30
  213. $GOSUB BBS_PATH
  214. $SET %23 %2
  215. $SET %28 %3
  216. $SET #1 #30
  217. $GOSUB BBS_COMM
  218. $SET #23 #1
  219.  
  220. $:LPEND
  221.  
  222. $GOSUB DOORPATH
  223. $GOSUB DOCSPATH
  224. $GOSUB BAT_NAME
  225.  
  226. $SET %2 "  │ ASCII Barony Rankings Bulletin │"
  227. $GOSUB BUL_NAME
  228. $SET %5 %2
  229.  
  230. $SET %2 "  │ Color Barony Rankings Bulletin │"
  231. $GOSUB BUL_NAME
  232. $SET %6 %2
  233.  
  234.  
  235.  
  236.  
  237. ;
  238. ; ╔═════════════════════╗
  239. ; ║  Main Control Menu  ║
  240. ; ╚═════════════════════╝
  241. ;
  242. $:MENU
  243. CLS
  244. $MSG
  245. $MSG "  ┌──────────────────────────────────────────────────────────────────────────┐"
  246. $MSG "  │                T H E   L A N D   O F   T H E   B A R O N S               │"
  247. $MSG "  └──────────────────────────────────────────────────────────────────────────┘"
  248. $SET %2 "        [1]  Editor Login                   : "
  249. $CAT %2 %30
  250. $MSG %2
  251. $SET %2 "        [2]  Editor Password                : "
  252. $CAT %2 %31
  253. $MSG %2
  254. $SET %2 "        [3]  BBS Type                       : "
  255. $CAT %2 %12
  256. $MSG %2
  257. $SET %2 "        [4]  Monitor Path                   : "
  258. $CAT %2 %14
  259. $MSG %2
  260. $SET %2 "        [5]  Door Batch Filename            : "
  261. $CAT %2 %15
  262. $MSG %2
  263. $SET %2 "        [6]  Door Drive & Path              : "
  264. $CAT %2 %16
  265. $CAT %2 %17
  266. $MSG %2
  267. $SET %2 "        [7]  Docs Drive & Path              : "
  268. $CAT %2 %18
  269. $MSG %2
  270. $SET %2 "        [8]  ASCII Barony Rankings Bulletin : "
  271. $CAT %2 %5
  272. $MSG %2
  273. $SET %2 "        [9]  Color Barony Rankings Bulletin : "
  274. $CAT %2 %6
  275. $MSG %2
  276. $SET %2 "       [10]  Node Count                     : "
  277. $CAT %2 #10
  278. $MSG %2
  279. $SET %2 "       [11]  Node 1 Port, Drive & Path      : COM"
  280. $CAT %2 #20
  281. $CAT %2 ":  -  "
  282. $CAT %2 %20
  283. $CAT %2 %25
  284. $MSG %2
  285. $SET %2 "       [12]  Node 2 Port, Drive & Path      : COM"
  286. $CAT %2 #21
  287. $CAT %2 ":  -  "
  288. $CAT %2 %21
  289. $CAT %2 %26
  290. $MSG %2
  291. $SET %2 "       [13]  Node 3 Port, Drive & Path      : COM"
  292. $CAT %2 #22
  293. $CAT %2 ":  -  "
  294. $CAT %2 %22
  295. $CAT %2 %27
  296. $MSG %2
  297. $SET %2 "       [14]  Node 4 Port, Drive & Path      : COM"
  298. $CAT %2 #23
  299. $CAT %2 ":  -  "
  300. $CAT %2 %23
  301. $CAT %2 %28
  302. $MSG %2
  303. $MSG "  ────────────────────────────────────────────────────────────────────────────"
  304. $INP %0 "  Enter item to change, [ENTER] to build, or [Q] to quit: "
  305.  
  306. $IF %0 = "1" MENU1
  307. $IF %0 = "2" MENU2
  308. $IF %0 = "3" MENU3
  309. $IF %0 = "4" MENU4
  310. $IF %0 = "5" MENU5
  311. $IF %0 = "6" MENU6
  312. $IF %0 = "7" MENU7
  313. $IF %0 = "8" MENU8
  314. $IF %0 = "9" MENU9
  315. $IF %0 = "10" MENU10
  316. $IF %0 = "11" MENU11
  317. $IF %0 = "12" MENU12
  318. $IF %0 = "13" MENU13
  319. $IF %0 = "14" MENU14
  320. $IF %0 = "Q" ABORT
  321. $IF %0 = "q" ABORT
  322. $IF %0 = "" BUILD
  323.  
  324.  
  325. $MSG "  Error - Invalid selection."
  326. $:DELAY
  327. $SET #0 1
  328. $IF #0 = 25 MENU
  329. $ADD #0 1
  330. $GOTO DELAY
  331.  
  332.  
  333. $:MENU1
  334. $GOSUB LOGIN
  335. $GOTO MENU
  336.  
  337.  
  338. $:MENU2
  339. $GOSUB PASSWORD
  340. $GOTO MENU
  341.  
  342.  
  343. $:MENU3
  344. $GOSUB BBS_TYPE
  345. $GOTO MENU
  346.  
  347.  
  348. $:MENU4
  349. $GOSUB MON_PATH
  350. $GOTO MENU
  351.  
  352.  
  353. $:MENU5
  354. $GOSUB BAT_NAME
  355. $GOTO MENU
  356.  
  357.  
  358. $:MENU6
  359. $GOSUB DOORPATH
  360. $GOTO MENU
  361.  
  362.  
  363. $:MENU7
  364. $GOSUB DOCSPATH
  365. $GOTO MENU
  366.  
  367.  
  368. $:MENU8
  369. $SET %2 "  │ ASCII Barony Rankings Bulletin │"
  370. $GOSUB BUL_NAME
  371. $SET %5 %2
  372. $GOTO MENU
  373.  
  374.  
  375. $:MENU9
  376. $SET %2 "  │ Color Barony Rankings Bulletin │"
  377. $GOSUB BUL_NAME
  378. $SET %6 %2
  379. $GOTO MENU
  380.  
  381.  
  382. $:MENU10
  383. $GOSUB NODES
  384. $GOTO MENU
  385.  
  386.  
  387. $:MENU11
  388. $SET #1 1
  389. $GOSUB BBS_PATH
  390. $SET %20 %2
  391. $SET %25 %3
  392. $SET #1 1
  393. $GOSUB BBS_COMM
  394. $GOTO MENU
  395.  
  396.  
  397. $:MENU12
  398. $SET #1 2
  399. $GOSUB BBS_PATH
  400. $SET %21 %2
  401. $SET %26 %3
  402. $SET #1 2
  403. $GOSUB BBS_COMM
  404. $GOTO MENU
  405.  
  406.  
  407. $:MENU13
  408. $SET #1 3
  409. $GOSUB BBS_PATH
  410. $SET %22 %2
  411. $SET %27 %3
  412. $SET #1 3
  413. $GOSUB BBS_COMM
  414. $GOTO MENU
  415.  
  416.  
  417. $:MENU14
  418. $SET #1 4
  419. $GOSUB BBS_PATH
  420. $SET %23 %2
  421. $SET %28 %3
  422. $SET #1 4
  423. $GOSUB BBS_COMM
  424. $GOTO MENU
  425.  
  426.  
  427.  
  428.  
  429.  
  430. ;
  431. ; ╔══════════════════════════════╗
  432. ; ║  Build Required Directories  ║
  433. ; ╚══════════════════════════════╝
  434. ;
  435. $:BUILD
  436. CLS
  437. $MSG
  438. $MSG "  ┌──────────────────────────────────────────────────────────────────────────┐"
  439. $MSG "  │                T H E   L A N D   O F   T H E   B A R O N S               │"
  440. $MSG "  └──────────────────────────────────────────────────────────────────────────┘"
  441. $MSG
  442. $MSG "  Building directories..."
  443. $SET %2 %16
  444. $CAT %2 %17
  445. $SET %3 %2
  446. MAKEDIR %2
  447. $CAT %2 "\DOCS"
  448. MAKEDIR %2
  449. $CAT %3 "\SCREENS"
  450. MAKEDIR %3
  451. MAKEDIR %18
  452.  
  453.  
  454.  
  455.  
  456.  
  457. ;
  458. ; ╔═══════════════════════╗
  459. ; ║  UnZip Documentation  ║
  460. ; ╚═══════════════════════╝
  461. ;
  462. $MSG "  UnZipping documentation..."
  463. PKUNZIP -o BARONS-D.ZIP %2 *.* >NUL
  464. $MSG "  UnZipping screens...      "
  465. PKUNZIP -o BARONS-S.ZIP %3 *.* >NUL
  466.  
  467.  
  468.  
  469.  
  470.  
  471. ;
  472. ; ╔═══════════════════════════╗
  473. ; ║  Copy User Documentation  ║
  474. ; ╚═══════════════════════════╝
  475. ;
  476. $MSG "  Copying user documentation..."
  477. $CAT %2 "\BARONS.DOC"
  478. COPY %2 %18 >NUL
  479. $SET %3 %16
  480. $CAT %3 %17
  481. COPY %2 %3 >NUL
  482.  
  483.  
  484.  
  485.  
  486.  
  487. ;
  488. ; ╔═══════════════════════╗
  489. ; ║  UnZip Program Files  ║
  490. ; ╚═══════════════════════╝
  491. ;
  492. $MSG "  UnZipping program files..."
  493. $SET %2 %16
  494. $CAT %2 %17
  495. PKUNZIP -o BARONS-X.ZIP %2 *.* >NUL
  496.  
  497.  
  498.  
  499.  
  500.  
  501. ;
  502. ; ╔═══════════════════╗
  503. ; ║  Build NODES.BBS  ║
  504. ; ╚═══════════════════╝
  505. ;
  506. $MSG "  Building node ID file(s)..."
  507.  
  508. $IF #12 < 3 NBBS0
  509. $IF #12 > 4 NBBS0
  510. $SET %2 %14
  511. $GOTO NBBS1
  512.  
  513. $:NBBS0
  514. $SET %2 %20
  515. $CAT %2 %25
  516.  
  517. $:NBBS1
  518. $CAT %2 "\NODES.BBS"
  519. REMOVE %2
  520. $:NBBS1_NO
  521. $SET %3 "COM"
  522. $CAT %3 #20
  523. $WRITE %2 %3
  524. $SET %3 "COM"
  525. $CAT %3 #21
  526. $WRITE %2 %3
  527. $SET %3 "COM"
  528. $CAT %3 #22
  529. $WRITE %2 %3
  530. $SET %3 "COM"
  531. $CAT %3 #23
  532. $WRITE %2 %3
  533. $SET %3 %16
  534. $CAT %3 %17
  535. $CAT %3 "\NODES.BBS"
  536. COPY %2 %3 >NUL
  537.  
  538. $IF #12 = 3 BATCH
  539. $IF #12 = 4 BATCH
  540. $IF #10 < 2 BATCH
  541. $SET %3 %21
  542. $CAT %3 %26
  543. $CAT %3 "\NODES.BBS"
  544. $IF %2 = %3 NBBS3
  545. COPY %2 %3 >NUL
  546.  
  547. $:NBBS3
  548. $IF #10 < 3 BATCH
  549. $SET %3 %22
  550. $CAT %3 %27
  551. $CAT %3 "\NODES.BBS"
  552. $IF %2 = %3 NBBS4
  553. COPY %2 %3 >NUL
  554.  
  555. $:NBBS4
  556. $IF #10 < 4 BATCH
  557. $SET %3 %23
  558. $CAT %3 %28
  559. $CAT %3 "\NODES.BBS"
  560. $IF %2 = %3 BATCH
  561. COPY %2 %3 >NUL
  562.  
  563.  
  564.  
  565.  
  566.  
  567. ;
  568. ; ╔═════════════════════╗
  569. ; ║  Build Batch Files  ║
  570. ; ╚═════════════════════╝
  571. ;
  572. $:BATCH
  573. $IF #12 < 3 BAT1
  574. $IF #12 > 4 BAT1
  575.  
  576. $MSG "  Copying MONITOR1.EXE file to door directory..."
  577. $SET %2 %14
  578. $CAT %2 "\MONITOR1.EXE"
  579. $SET %3 %16
  580. $CAT %3 %17
  581. $IF EXISTS %2 MON_COPY
  582.  
  583. $MSG "  WARNING - MONITOR1.EXE file not found!"
  584. $GOTO CONFIG
  585.  
  586. $:MON_COPY
  587. COPY %2 %3
  588. $GOTO CONFIG
  589.  
  590. $:BAT1
  591. $MSG "  Building door batch file(s)..."
  592. $SET %2 %20
  593. $CAT %2 %25
  594. $CAT %2 "\"
  595. $CAT %2 %15
  596. REMOVE %2
  597. $:BAT1_NO
  598. $WRITE %2 "@ECHO OFF"
  599. $WRITE %2 "ECHO ┌──────────────────────┐"
  600. $WRITE %2 "ECHO │  LAND OF THE BARONS  │"
  601. $WRITE %2 "ECHO └──────────────────────┘"
  602. $WRITE %2 %16
  603. $SET %3 "CD "
  604. $CAT %3 %17
  605. $WRITE %2 %3
  606.  
  607. $SET %3 "BARONS"
  608. $IF #12 = 1 BAT11
  609. $IF #12 = 2 BAT11
  610. $CAT %3 " 1 "
  611. $GOTO BAT12
  612. $:BAT11
  613. $CAT %3 " %1 "
  614. $:BAT12
  615. $CAT %3 %20
  616. $CAT %3 %25
  617. $CAT %3 " "
  618. $CAT %3 %13
  619. $WRITE %2 %3
  620.  
  621. $WRITE %2 %20
  622. $SET %3 "CD "
  623. $CAT %3 %25
  624. $WRITE %2 %3
  625. $WRITE %2 " "
  626.  
  627.  
  628.  
  629. $:BAT2
  630. $IF #10 < 2 CONFIG
  631. $SET %4 %21
  632. $CAT %4 %26
  633. $CAT %4 "\"
  634. $CAT %4 %15
  635. $IF %2 = %4 BAT3
  636. $SET %2 %4
  637. REMOVE %2
  638. $:BAT2_NO
  639. $WRITE %2 "@ECHO OFF"
  640. $WRITE %2 "ECHO ┌──────────────────────┐"
  641. $WRITE %2 "ECHO │  LAND OF THE BARONS  │"
  642. $WRITE %2 "ECHO └──────────────────────┘"
  643. $WRITE %2 %16
  644. $SET %3 "CD "
  645. $CAT %3 %17
  646. $WRITE %2 %3
  647.  
  648. $SET %3 "BARONS"
  649. $IF #12 = 1 BAT21
  650. $IF #12 = 2 BAT21
  651. $CAT %3 " 2 "
  652. $GOTO BAT22
  653. $:BAT21
  654. $CAT %3 " %1 "
  655. $:BAT22
  656. $CAT %3 %21
  657. $CAT %3 %26
  658. $CAT %3 " "
  659. $CAT %3 %13
  660. $WRITE %2 %3
  661.  
  662. $WRITE %2 %21
  663. $SET %3 "CD "
  664. $CAT %3 %26
  665. $WRITE %2 %3
  666. $WRITE %2 " "
  667.  
  668.  
  669.  
  670. $:BAT3
  671. $IF #10 < 3 CONFIG
  672. $SET %4 %22
  673. $CAT %4 %27
  674. $CAT %4 "\"
  675. $CAT %4 %15
  676. $IF %2 = %4 BAT4
  677. $SET %2 %4
  678. REMOVE %2
  679. $:BAT3_NO
  680. $WRITE %2 "@ECHO OFF"
  681. $WRITE %2 "ECHO ┌──────────────────────┐"
  682. $WRITE %2 "ECHO │  LAND OF THE BARONS  │"
  683. $WRITE %2 "ECHO └──────────────────────┘"
  684. $WRITE %2 %16
  685. $SET %3 "CD "
  686. $CAT %3 %17
  687. $WRITE %2 %3
  688.  
  689. $SET %3 "BARONS"
  690. $IF #12 = 1 BAT31
  691. $IF #12 = 2 BAT31
  692. $CAT %3 " 3 "
  693. $GOTO BAT32
  694. $:BAT31
  695. $CAT %3 " %1 "
  696. $:BAT32
  697. $CAT %3 %22
  698. $CAT %3 %27
  699. $CAT %3 " "
  700. $CAT %3 %13
  701. $WRITE %2 %3
  702.  
  703. $WRITE %2 %22
  704. $SET %3 "CD "
  705. $CAT %3 %27
  706. $WRITE %2 %3
  707. $WRITE %2 " "
  708.  
  709.  
  710.  
  711. $:BAT4
  712. $IF #10 < 4 CONFIG
  713. $SET %4 %23
  714. $CAT %4 %28
  715. $CAT %4 "\"
  716. $CAT %4 %15
  717. $IF %2 = %4 CONFIG
  718. $SET %2 %4
  719. REMOVE %2
  720. $:BAT4_NO
  721. $WRITE %2 "@ECHO OFF"
  722. $WRITE %2 "ECHO ┌──────────────────────┐"
  723. $WRITE %2 "ECHO │  LAND OF THE BARONS  │"
  724. $WRITE %2 "ECHO └──────────────────────┘"
  725. $WRITE %2 %16
  726. $SET %3 "CD "
  727. $CAT %3 %17
  728. $WRITE %2 %3
  729.  
  730. $SET %3 "BARONS"
  731. $IF #12 = 1 BAT41
  732. $IF #12 = 2 BAT41
  733. $CAT %3 " 4 "
  734. $GOTO BAT42
  735. $:BAT41
  736. $CAT %3 " %1 "
  737. $:BAT42
  738. $CAT %3 %23
  739. $CAT %3 %28
  740. $CAT %3 " "
  741. $CAT %3 %13
  742. $WRITE %2 %3
  743.  
  744. $WRITE %2 %23
  745. $SET %3 "CD "
  746. $CAT %3 %28
  747. $WRITE %2 %3
  748. $WRITE %2 " "
  749.  
  750.  
  751.  
  752.  
  753.  
  754. ;
  755. ; ╔═════════════════════════════╗
  756. ; ║  Build Configuration Files  ║
  757. ; ╚═════════════════════════════╝
  758. ;
  759. $:CONFIG
  760. $MSG "  Building door configuration file..."
  761. $SET %2 %16
  762. $CAT %2 %17
  763. $CAT %2 "\BARONS.CFG"
  764. REMOVE %2
  765. $:CFG_NO
  766. $SET %3 "RANKINGS_FILE_A = "
  767. $CAT %3 %5
  768. $WRITE %2 %3
  769. $SET %3 "RANKINGS_FILE_C = "
  770. $CAT %3 %6
  771. $WRITE %2 %3
  772. $SET %3 "SYSOP1_NAME     = "
  773. $CAT %3 %30
  774. $WRITE %2 %3
  775. $SET %3 "SYSOP_PASSWORD  = "
  776. $CAT %3 %31
  777. $WRITE %2 %3
  778.  
  779.  
  780.  
  781.  
  782. ;
  783. ; ╔═══════════════════╗
  784. ; ║  Signoff Message  ║
  785. ; ╚═══════════════════╝
  786. ;
  787. $:SIGNOFF
  788. CLS
  789. $MSG
  790. $MSG "  ┌──────────────────────────────────────────────────────────────────────────┐"
  791. $MSG "  │                T H E   L A N D   O F   T H E   B A R O N S               │"
  792. $MSG "  └──────────────────────────────────────────────────────────────────────────┘"
  793. $MSG
  794. $IF #15 = 1 SIGNOFF2
  795. $MSG "    The Land of the Barons is now installed and ready to run.  You will need"
  796. $MSG "    to modify your door menu or whatever mechanism is used by your BBS to   "
  797. $MSG "    have it recognize the new door.  Also if your BBS software needs to be  "
  798. $MSG "    re-run after the door terminates then you will need to add a line at the"
  799. $MSG "    end of the batch files to do that."
  800. $MSG
  801. $MSG "    I hope you that you and your users enjoy The Land of the Barons.  If you"
  802. $MSG "    have any problems please contact me at Mycroft Systems as listed below. "
  803. $MSG "    Also please take the time to fill out the registration from and mail it "
  804. $MSG "    to me at: "
  805. $MSG
  806. $MSG "                               Mycroft Systems   "
  807. $MSG "                                P.O. Box 7672    "
  808. $MSG "                             San Jose, CA. 95150 "
  809. $MSG "                               (408) 927-0105    "
  810. $MSG
  811. $GOTO DONE
  812.  
  813.  
  814.  
  815.  
  816.  
  817. $:SIGNOFF2
  818. $MSG "    The Land of the Barons is now installed and ready be converted for the  "
  819. $MSG "    game currently in progress.  You will now need to change directories to "
  820. $MSG "    the Barons directory and run the CONVERT program.  You may need to      "
  821. $MSG "    modify the BARONS.CFG file to make sure the size parameters match those "
  822. $MSG "    you were using in the game in progress."
  823. $MSG
  824. $MSG "    I hope you that you and your users enjoy The Land of the Barons.  If you"
  825. $MSG "    have any problems please contact me at Mycroft Systems as listed below. "
  826. $MSG "    Also please take the time to fill out the registration from and mail it "
  827. $MSG "    to me at: "
  828. $MSG
  829. $MSG "                               Mycroft Systems   "
  830. $MSG "                                P.O. Box 7672    "
  831. $MSG "                             San Jose, CA. 95150 "
  832. $MSG "                                (408)927-0105    "
  833. $MSG
  834.  
  835.  
  836.  
  837.  
  838.  
  839. ;
  840. ; ╔══════════════════╗
  841. ; ║  All Done, Exit  ║
  842. ; ╚══════════════════╝
  843. ;
  844.  
  845. $:DONE
  846. $EXIT 0
  847.  
  848.  
  849.  
  850. ;
  851. ; ╔═══════════════════════╗
  852. ; ║  Get the Editor name  ║
  853. ; ╚═══════════════════════╝
  854. ;
  855. $:LOGIN
  856. ;
  857. CLS
  858. $MSG
  859. $MSG "  ┌───────────────────────────────┐"
  860. $MSG "  │       EDITOR LOGIN NAME       │"
  861. $MSG "  ├───────────────────────────────┤"
  862. $MSG "  │ Enter the user login name of  │"
  863. $MSG "  │  the person you wish to have  │"
  864. $MSG "  │  access to the doors editor.  │"
  865. $MSG "  │                               │"
  866. $MSG "  │    Example: Richard Wilkes    │"
  867. $MSG "  └───────────────────────────────┘"
  868. $INP %30 "  ══> "
  869. $RETURN
  870.  
  871.  
  872.  
  873.  
  874.  
  875. ;
  876. ; ╔═══════════════════════════╗
  877. ; ║  Get the Editor Password  ║
  878. ; ╚═══════════════════════════╝
  879. ;
  880. $:PASSWORD
  881. ;
  882. CLS
  883. $MSG
  884. $MSG "  ┌───────────────────────────────┐"
  885. $MSG "  │        EDITOR PASSWORD        │"
  886. $MSG "  ├───────────────────────────────┤"
  887. $MSG "  │  Enter the password you wish  │"
  888. $MSG "  │  to use to gain access to the │"
  889. $MSG "  │         doors editor.         │"
  890. $MSG "  │                               │"
  891. $MSG "  │       Example: Mycroft        │"
  892. $MSG "  └───────────────────────────────┘"
  893. $INP %31 "  ══> "
  894. $RETURN
  895.  
  896.  
  897.  
  898.  
  899.  
  900. ;
  901. ; ╔════════════════════╗
  902. ; ║  Get the BBS type  ║
  903. ; ╚════════════════════╝
  904. ;
  905. $:BBS_TYPE
  906. ;
  907. CLS
  908. $MSG
  909. $MSG "  ┌───────────────────────────────────┐"
  910. $MSG "  │       BBS ENVIRONMENT TYPE        │"
  911. $MSG "  ├───────────────────────────────────┤"
  912. $MSG "  │   1. RBBS 15                      │"
  913. $MSG "  │   2. RBBS 16 or RBBS 17           │"
  914. $MSG "  │   3. Bob Wescotts Door Monitor    │"
  915. $MSG "  │   4. G-Mon                        │"
  916. $MSG "  │   5. Quick BBS                    │"
  917. $MSG "  │   6. PC-Board 12.1                │"
  918. $MSG "  │   7. PC-Board 14.0                │"
  919. $MSG "  │   8. Wildcat BBS                  │"
  920. $MSG "  │   9. GAP BBS                      │"
  921. $MSG "  │  10. WWIV BBS                     │"
  922. $MSG "  │  11. Spitfire (Door)              │"
  923. $MSG "  │  12. Spitfire (Main menu cmd.)    │"
  924. $MSG "  │  13. Spitfire (Msg. menu cmd.)    │"
  925. $MSG "  │  14. Spitfire (File menu cmd.)    │"
  926. $MSG "  └───────────────────────────────────┘"
  927. ;
  928. $:BBS_T0
  929. ;
  930. $INP #12 "  ══> "
  931. $IF #12 < 1 BBS_TERR
  932. ;
  933. $:BBS_T1
  934. $IF #12 > 1 BBS_T2
  935. $SET %12 "RBBS 15"
  936. $SET %13 ""
  937. $RETURN
  938. ;
  939. $:BBS_T2
  940. $IF #12 > 2 BBS_T3
  941. $SET %12 "RBBS"
  942. $SET %13 "RBBS"
  943. $RETURN
  944. ;
  945. $:BBS_T3
  946. $IF #12 > 3 BBS_T4
  947. $SET %12 "Wescotts Monitor"
  948. $SET %13 ""
  949. $RETURN
  950. ;
  951. $:BBS_T4
  952. $IF #12 > 4 BBS_T5
  953. $SET %12 "G-Mon"
  954. $SET %13 ""
  955. $RETURN
  956. ;
  957. $:BBS_T5
  958. $IF #12 > 5 BBS_T6
  959. $SET %12 "Quick BBS"
  960. $SET %13 "QBBS"
  961. $RETURN
  962. ;
  963. $:BBS_T6
  964. $IF #12 > 6 BBS_T7
  965. $SET %12 "PC-Board 12.1"
  966. $SET %13 "PCBOARD"
  967. $RETURN
  968. ;
  969. $:BBS_T7
  970. $IF #12 > 7 BBS_T8
  971. $SET %12 "PC-Board 14.0"
  972. $SET %13 "PCBOARD14"
  973. $RETURN
  974. ;
  975. $:BBS_T8
  976. $IF #12 > 8 BBS_T9
  977. $SET %12 "Wildcat BBS"
  978. $SET %13 "WILDCAT"
  979. $RETURN
  980. ;
  981. $:BBS_T9
  982. $IF #12 > 9 BBS_T10
  983. $SET %12 "Gap BBS"
  984. $SET %13 "GAP"
  985. $RETURN
  986. ;
  987. $:BBS_T10
  988. $IF #12 > 10 BBS_T11
  989. $SET %12 "WWIV BBS"
  990. $SET %13 "WWIV"
  991. $RETURN
  992. ;
  993. $:BBS_T11
  994. $IF #12 > 11 BBS_T12
  995. $SET %12 "Spitfire BBS (Door)"
  996. $SET %13 "SPITFIRE"
  997. $RETURN
  998. ;
  999. $:BBS_T12
  1000. $IF #12 > 12 BBS_T13
  1001. $SET %12 "Spitfire BBS (Main menu cmd.)"
  1002. $SET %13 "SPITFIREK"
  1003. $RETURN
  1004. ;
  1005. $:BBS_T13
  1006. $IF #12 > 13 BBS_T14
  1007. $SET %12 "Spitfire BBS (Msg. menu cmd.)"
  1008. $SET %13 "SPITFIREM"
  1009. $RETURN
  1010. ;
  1011. $:BBS_T14
  1012. $IF #12 > 14 BBS_TERR
  1013. $SET %12 "Spitfire BBS (File menu cmd.)"
  1014. $SET %13 "SPITFIREF"
  1015. $RETURN
  1016. ;
  1017. $:BBS_TERR
  1018. $MSG "  Error, please enter a number between 1 and 14."
  1019. $GOTO BBS_T0
  1020.  
  1021.  
  1022.  
  1023.  
  1024.  
  1025. ;
  1026. ; ╔════════════════════════════════╗
  1027. ; ║  Get the Monitor drive & path  ║
  1028. ; ╚════════════════════════════════╝
  1029. ;
  1030. $:MON_PATH
  1031. ;
  1032. CLS
  1033. $MSG
  1034. $MSG "  ┌───────────────────────────────┐"
  1035. $MSG "  │ DOOR MONITOR DRIVE & PATHNAME │"
  1036. $MSG "  ├───────────────────────────────┤"
  1037. $MSG "  │ Enter the complete drive and  │"
  1038. $MSG "  │ pathname for the location of  │"
  1039. $MSG "  │      your monitor files.      │"
  1040. $MSG "  │                               │"
  1041. $MSG "  │    Example: C:\RBBS\G-MON     │"
  1042. $MSG "  └───────────────────────────────┘"
  1043. $INP %14 "  ══> "
  1044. $RETURN
  1045.  
  1046.  
  1047.  
  1048.  
  1049.  
  1050. ;
  1051. ; ╔══════════════════════════╗
  1052. ; ║  Get the BBS node count  ║
  1053. ; ╚══════════════════════════╝
  1054. ;
  1055. $:NODES
  1056. CLS
  1057. $MSG
  1058. $MSG "  ┌───────────────────────────────┐"
  1059. $MSG "  │      NUMBER OF BBS NODES      │"
  1060. $MSG "  ├───────────────────────────────┤"
  1061. $MSG "  │     1. System has 1 node      │"
  1062. $MSG "  │     2. System has 2 nodes     │"
  1063. $MSG "  │     3. System has 3 nodes     │"
  1064. $MSG "  │     4. System has 4 nodes     │"
  1065. $MSG "  └───────────────────────────────┘"
  1066. ;
  1067. $:NODE_0
  1068. $INP #10 "  ══> "
  1069. $IF #10 = 1 NODE_1
  1070. $IF #10 = 2 NODE_2
  1071. $IF #10 = 3 NODE_3
  1072. $IF #10 = 4 NODE_4
  1073. $GOTO NODE_ERR
  1074.  
  1075. $:NODE_1
  1076. $SET %23 ""
  1077. $SET %28 "<not in use>"
  1078. $SET #23 0
  1079.  
  1080. $:NODE_2
  1081. $SET %22 ""
  1082. $SET %27 "<not in use>"
  1083. $SET #22 0
  1084.  
  1085. $:NODE_3
  1086. $SET %21 ""
  1087. $SET %26 "<not in use>"
  1088. $SET #21 0
  1089.  
  1090. $:NODE_4
  1091. $RETURN
  1092. ;
  1093. $:NODE_ERR
  1094. $MSG "  Error, please enter a number between 1 and 4."
  1095. $GOTO NODE_0
  1096.  
  1097.  
  1098.  
  1099.  
  1100.  
  1101. ;
  1102. ; ╔════════════════════════════╗
  1103. ; ║  Get the BBS drive & path  ║
  1104. ; ╚════════════════════════════╝
  1105. ;
  1106. $:BBS_PATH
  1107. CLS
  1108. $MSG
  1109. $MSG "  ┌───────────────────────────────┐"
  1110. $MSG "  │           BBS DRIVE           │"
  1111. $MSG "  ├───────────────────────────────┤"
  1112. $SET %3 "  │            NODE #"
  1113. $CAT %3 #1
  1114. $CAT %3 "            │"
  1115. $MSG %3
  1116. $MSG "  │                               │"
  1117. $MSG "  │   1. A:     5. E:     9. I:   │"
  1118. $MSG "  │   2. B:     6. F:    10. J:   │"
  1119. $MSG "  │   3. C:     7. G:    11. K:   │"
  1120. $MSG "  │   4. D:     8. H:    12. L:   │"
  1121. $MSG "  └───────────────────────────────┘"
  1122. ;
  1123. $:BBS_P0
  1124. $INP #0 "  ══> "
  1125. $IF #0 < 1 BBS_PERR
  1126. ;
  1127. $:BBS_P1
  1128. $IF #0 > 1 BBS_P2
  1129. $SET %2 "A:"
  1130. $GOTO BBS_PTH2
  1131. ;
  1132. $:BBS_P2
  1133. $IF #0 > 2 BBS_P3
  1134. $SET %2 "B:"
  1135. $GOTO BBS_PTH2
  1136. ;
  1137. $:BBS_P3
  1138. $IF #0 > 3 BBS_P4
  1139. $SET %2 "C:"
  1140. $GOTO BBS_PTH2
  1141. ;
  1142. $:BBS_P4
  1143. $IF #0 > 4 BBS_P5
  1144. $SET %2 "D:"
  1145. $GOTO BBS_PTH2
  1146. ;
  1147. $:BBS_P5
  1148. $IF #0 > 5 BBS_P6
  1149. $SET %2 "E:"
  1150. $GOTO BBS_PTH2
  1151. ;
  1152. $:BBS_P6
  1153. $IF #0 > 6 BBS_P7
  1154. $SET %2 "F:"
  1155. $GOTO BBS_PTH2
  1156. ;
  1157. $:BBS_P7
  1158. $IF #0 > 7 BBS_P7
  1159. $SET %2 "G:"
  1160. $GOTO BBS_PTH2
  1161. ;
  1162. $:BBS_P8
  1163. $IF #0 > 8 BBS_P9
  1164. $SET %2 "H:"
  1165. $GOTO BBS_PTH2
  1166. ;
  1167. $:BBS_P9
  1168. $IF #0 > 9 BBS_P10
  1169. $SET %2 "I:"
  1170. $GOTO BBS_PTH2
  1171. ;
  1172. $:BBS_P10
  1173. $IF #0 > 10 BBS_P11
  1174. $SET %2 "J:"
  1175. $GOTO BBS_PTH2
  1176. ;
  1177. $:BBS_P11
  1178. $IF #0 > 11 BBS_P12
  1179. $SET %2 "K:"
  1180. $GOTO BBS_PTH2
  1181. ;
  1182. $:BBS_P12
  1183. $IF #0 > 12 BBS_PERR
  1184. $SET %2 "L:"
  1185. $GOTO BBS_PTH2
  1186. ;
  1187. $:BBS_PERR
  1188. $MSG "  Error, please enter a number between 1 and 12."
  1189. $GOTO BBS_P0
  1190.  
  1191.  
  1192. $:BBS_PTH2
  1193. ;
  1194. $MSG
  1195. $MSG "  ┌───────────────────────────────┐"
  1196. $MSG "  │         BBS PATHNAME          │"
  1197. $MSG "  ├───────────────────────────────┤"
  1198. $SET %3 "  │            NODE #"
  1199. $CAT %3 #1
  1200. $CAT %3 "            │"
  1201. $MSG %3
  1202. $MSG "  │                               │"
  1203. $MSG "  │ Enter the complete path where │"
  1204. $MSG "  │     your BBS software is.     │"
  1205. $MSG "  │                               │"
  1206. $MSG "  │        Example: \RBBS         │"
  1207. $MSG "  └───────────────────────────────┘"
  1208. $INP %3 "  ══> "
  1209. $RETURN
  1210.  
  1211.  
  1212.  
  1213.  
  1214.  
  1215. ;
  1216. ; ╔══════════════════════════════╗
  1217. ; ║  Get the BBS node comm port  ║
  1218. ; ╚══════════════════════════════╝
  1219. ;
  1220. $:BBS_COMM
  1221. CLS
  1222. $MSG
  1223. $MSG "  ┌───────────────────────────────┐"
  1224. $MSG "  │ BBS NODE COMM PORT ASSIGNMENT │"
  1225. $MSG "  ├───────────────────────────────┤"
  1226. $SET %3 "  │            NODE #"
  1227. $CAT %3 #1
  1228. $CAT %3 "            │"
  1229. $MSG %3
  1230. $MSG "  │                               │"
  1231. $MSG "  │         1. Uses COM1          │"
  1232. $MSG "  │         2. Uses COM2          │"
  1233. $MSG "  │         3. Uses COM3          │"
  1234. $MSG "  │         4. Uses COM4          │"
  1235. $MSG "  └───────────────────────────────┘"
  1236. ;
  1237. $:COMM_0
  1238. $INP #1 "  ══> "
  1239. $IF #1 < 1 COMM_ERR
  1240. $IF #1 > 4 COMM_ERR
  1241. $RETURN
  1242. ;
  1243. $:COMM_ERR
  1244. $MSG "  Error, please enter a number between 1 and 4."
  1245. $GOTO COMM_0
  1246.  
  1247.  
  1248.  
  1249.  
  1250.  
  1251. ;
  1252. ; ╔═════════════════════════════╗
  1253. ; ║  Get the door drive & path  ║
  1254. ; ╚═════════════════════════════╝
  1255. ;
  1256. $:DOORPATH
  1257. CLS
  1258. $MSG
  1259. $MSG "  ┌───────────────────────────────┐"
  1260. $MSG "  │          DOOR DRIVE           │"
  1261. $MSG "  ├───────────────────────────────┤"
  1262. $MSG "  │   1. A:     5. E:     9. I:   │"
  1263. $MSG "  │   2. B:     6. F:    10. J:   │"
  1264. $MSG "  │   3. C:     7. G:    11. K:   │"
  1265. $MSG "  │   4. D:     8. H:    12. L:   │"
  1266. $MSG "  └───────────────────────────────┘"
  1267. ;
  1268. $:DOR_P0
  1269. $INP #0 "  ══> "
  1270. $IF #0 < 1 DOR_PERR
  1271. ;
  1272. $:DOR_P1
  1273. $IF #0 > 1 DOR_P2
  1274. $SET %16 "A:"
  1275. $GOTO DOORPTH2
  1276. ;
  1277. $:DOR_P2
  1278. $IF #0 > 2 DOR_P3
  1279. $SET %16 "B:"
  1280. $GOTO DOORPTH2
  1281. ;
  1282. $:DOR_P3
  1283. $IF #0 > 3 DOR_P4
  1284. $SET %16 "C:"
  1285. $GOTO DOORPTH2
  1286. ;
  1287. $:DOR_P4
  1288. $IF #0 > 4 DOR_P5
  1289. $SET %16 "D:"
  1290. $GOTO DOORPTH2
  1291. ;
  1292. $:DOR_P5
  1293. $IF #0 > 5 DOR_P6
  1294. $SET %16 "E:"
  1295. $GOTO DOORPTH2
  1296. ;
  1297. $:DOR_P6
  1298. $IF #0 > 6 DOR_P7
  1299. $SET %16 "F:"
  1300. $GOTO DOORPTH2
  1301. ;
  1302. $:DOR_P7
  1303. $IF #0 > 7 DOR_P7
  1304. $SET %16 "G:"
  1305. $GOTO DOORPTH2
  1306. ;
  1307. $:DOR_P8
  1308. $IF #0 > 8 DOR_P9
  1309. $SET %16 "H:"
  1310. $GOTO DOORPTH2
  1311. ;
  1312. $:DOR_P9
  1313. $IF #0 > 9 DOR_P10
  1314. $SET %16 "I:"
  1315. $GOTO DOORPTH2
  1316. ;
  1317. $:DOR_P10
  1318. $IF #0 > 10 DOR_P11
  1319. $SET %16 "J:"
  1320. $GOTO DOORPTH2
  1321. ;
  1322. $:DOR_P11
  1323. $IF #0 > 11 DOR_P12
  1324. $SET %16 "K:"
  1325. $GOTO DOORPTH2
  1326. ;
  1327. $:DOR_P12
  1328. $IF #0 > 12 DOR_PERR
  1329. $SET %16 "L:"
  1330. $GOTO DOORPTH2
  1331. ;
  1332. $:DOR_PERR
  1333. $MSG "  Error, please enter a number between 1 and 12."
  1334. $GOTO DOR_P0
  1335.  
  1336.  
  1337. $:DOORPTH2
  1338. ;
  1339. $MSG
  1340. $MSG "  ┌───────────────────────────────┐"
  1341. $MSG "  │         DOOR PATHNAME         │"
  1342. $MSG "  ├───────────────────────────────┤"
  1343. $MSG "  │ Enter the complete path where │"
  1344. $MSG "  │    the door will be run.      │"
  1345. $MSG "  │                               │"
  1346. $MSG "  │    Example: \DOORS\BARONS     │"
  1347. $MSG "  └───────────────────────────────┘"
  1348. $INP %17 "  ══> "
  1349. $RETURN
  1350.  
  1351.  
  1352.  
  1353.  
  1354.  
  1355. ;
  1356. ; ╔═══════════════════════════════════════════╗
  1357. ; ║  Get the user documentation drive & path  ║
  1358. ; ╚═══════════════════════════════════════════╝
  1359. ;
  1360. $:DOCSPATH
  1361. ;
  1362. CLS
  1363. $MSG
  1364. $MSG "  ┌───────────────────────────────┐"
  1365. $MSG "  │USER DOCUMENTATION DRIVE & PATH│"
  1366. $MSG "  ├───────────────────────────────┤"
  1367. $MSG "  │ Enter the complete drive and  │"
  1368. $MSG "  │ pathname for the location of  │"
  1369. $MSG "  │  the downloadable doc files.  │"
  1370. $MSG "  │                               │"
  1371. $MSG "  │    Example: C:\RBBS\DOCS      │"
  1372. $MSG "  └───────────────────────────────┘"
  1373. $INP %18 "  ══> "
  1374. $RETURN
  1375.  
  1376.  
  1377.  
  1378.  
  1379.  
  1380. ;
  1381. ; ╔═══════════════════════════════╗
  1382. ; ║  Get the door batch filename  ║
  1383. ; ╚═══════════════════════════════╝
  1384. ;
  1385. $:BAT_NAME
  1386. ;
  1387. CLS
  1388. $MSG
  1389. $MSG "  ┌───────────────────────────────┐"
  1390. $MSG "  │      DOOR BATCH FILENAME      │"
  1391. $MSG "  ├───────────────────────────────┤"
  1392. $MSG "  │  Enter the name of the BATCH  │"
  1393. $MSG "  │  file you wish to use to run  │"
  1394. $MSG "  │  the door.  Do not include a  │"
  1395. $MSG "  │      drive or pathname.       │"
  1396. $MSG "  │                               │"
  1397. $MSG "  │      Example: RUNBAR.BAT      │"
  1398. $MSG "  └───────────────────────────────┘"
  1399. $INP %15 "  ══> "
  1400. $RETURN
  1401.  
  1402.  
  1403.  
  1404.  
  1405.  
  1406. ;
  1407. ; ╔═══════════════════════════════════════════════╗
  1408. ; ║  Get the door bulletin drive, path & filename ║
  1409. ; ╚═══════════════════════════════════════════════╝
  1410. ;
  1411. $:BUL_NAME
  1412. ;
  1413. CLS
  1414. $MSG
  1415. $MSG "  ┌────────────────────────────────┐"
  1416. $MSG "  │         BULLETIN NAME          │"
  1417. $MSG "  ├────────────────────────────────┤"
  1418. $MSG %2
  1419. $MSG "  │                                │"
  1420. $MSG "  │ Enter the complete drive, path │"
  1421. $MSG "  │ and filename for this bulletin │"
  1422. $MSG "  │                                │"
  1423. $MSG "  │   Example:  C:\RBBS\BULLET10   │"
  1424. $MSG "  └────────────────────────────────┘"
  1425. $INP %2 "  ══> "
  1426. $RETURN
  1427.  
  1428.  
  1429.  
  1430.  
  1431.  
  1432.